home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 September / 64er_Magazin_87-09_1987_Markt__Technik_de_Side_B.d64 / stone rescue 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  169 lines
  1. 10 rem*********************************
  2. 20 rem***          written          ***
  3. 30 rem***            by             ***
  4. 40 rem***       dirk schlote        ***
  5. 50 rem***            and            ***
  6. 60 rem***     matthias strecker     ***
  7. 62 rem***        zum anger 8        ***
  8. 64 rem***    3430 witzenhausen 6    ***
  9. 66 rem***      tel. 05542/1632      ***
  10. 70 rem*********************************
  11. 80 bn=1:l1=1:wg=8:gosub950:gosub1000
  12. 90 ifi<>0then670
  13. 100 rem********************************
  14. 110 rem***        titelbild         ***
  15. 120 rem********************************
  16. 130 poke53280,1:poke53281,1
  17. 140 printchr$(142):printchr$(8)
  18. 141 printchr$(147):print:print:print
  19. 150 print"          [154]  [144] [146]"
  20. 160 print"[154]                [146][144] [146]"
  21. 170 print"[154]   [144] [146]      [154]  [144] [146]              [154][169][144] [146]"
  22. 180 print"[154]   [144] [146]      [154]  [144] [146]  [154]      [144] [146] [154]     [144] [146] [154]     [144] [146]"
  23. 190 print"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154] [144] [146]  [154] [144] [146]"
  24. 200 print"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154]     [144] [146]"
  25. 210 print"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154] [144] [146]"
  26. 220 print"[154]       [144] [146]  [154]  [144] [146]  [154]      [144] [146] [154] [144] [146]  [154] [144] [146] [154]     [144] [146]"
  27. 230 print"                                       ";
  28. 240 print"                 rescue 1                ";
  29. 250 print"                                        ";
  30. 260 print"[144] 1985 [146]"
  31. 270 print""
  32. 280 print" by matthias strecker and dirk schlote"
  33. 290 fort=0to4:print"[145][145]":next
  34. 300 print"              please wait  "
  35. 310 i=1:goto90
  36. 320 print"[145] press a button "
  37. 330 fort=0to350:next
  38. 340 print"[145]                [146]
  39. 350 [161]a$:[139]a$[178]""[167]370
  40. 360 [153]"":[137]380
  41. 370 [129]t[178]0[164]350:[130]:[137]320
  42. 380 [153]"generate or play game ?"
  43. 390 [153]"(  g  /  p  )"
  44. 400 [161]a$:[139]a$[178]"g"[167][158]51590
  45. 410 [139]a$[179][177]"p"[167]400
  46. 420 [141]1030
  47. 430 [143]*******************************
  48. 440 [143]***        bild-laden       ***
  49. 450 [143]*******************************
  50. 460 [151]53281,1:[151]53280,1:[151]646,0
  51. 470 [153]"loades wird geladen
  52. 480 print"bild :";bn
  53. 530 bn$=str$(bn)
  54. 540 a$="stone-bild"+bn$+"*"
  55. 550 fort=1tolen(a$):poke12984+t,asc(mid$(a$,t,1)):next
  56. 560 sys51565
  57. 570 ifbn=10thenpoke37794,65:poke37787,65
  58. 590 return
  59. 600 rem*******************************
  60. 610 rem***        game over        ***
  61. 620 rem*******************************
  62. 630 f1=48:gosub950:print"[158]game over"
  63. 640 print"press space"
  64. 643 poke1179,48
  65. 645 forz=0to50:fort=0to8:pokev+22,t:next:next
  66. 650 l1=1:l2=0:l3=0:l4=0
  67. 660 poke198,0:wait 198,1:goto360
  68. 670 rem*******************************
  69. 680 rem***     initialisierung     ***
  70. 690 rem*******************************
  71. 700 ifi=1theni=2:load"stone 1",8,1
  72. 710 ifi=2theni=3:sys49152:load"stone 2",8,1
  73. 720 v=53248:pokev+37,8
  74. 730 pokev+38,14
  75. 740 fort=39to43:pokev+t,7:next
  76. 750 poke12949,31:poke12969,8
  77. 760 goto 320
  78. 770 rem*******************************
  79. 780 rem***      anzeigen-tafel     ***
  80. 790 rem*******************************
  81. 800 b1$=left$(bn$,2)
  82. 805 ifbn<10thenb1$=chr$(48)
  83. 806 b1=val(b1$)
  84. 810 b2$=right$(bn$,1):b2=val(b2$)
  85. 820 poke12972,f1:poke12973,f2
  86. 830 ifpeek(12934)=51thenf2=f2+1
  87. 840 iff2>57thenf1=f1+1
  88. 860 poke12974,48+b1:poke12975,48+b2
  89. 870 ifl1>57thenl2=l2+1
  90. 880 ifl2>57thenl3=l3+1
  91. 890 ifl3>57thenl4=l4+1
  92. 900 poke12976,48+l4
  93. 910 poke12977,48+l3
  94. 920 poke12978,48+l2
  95. 930 poke12979,48+l1
  96. 940 return
  97. 950 rem*******************************
  98. 960 rem***       score loeschen    ***
  99. 970 rem*******************************
  100. 980 fort=12931to12936:poket,48:next
  101. 990 return
  102. 1000 fort=12937to12942:poket,48:next
  103. 1010 return
  104. 1030 rem******************************
  105. 1040 rem***     steuerprogramm     ***
  106. 1050 rem******************************
  107. 1060 f1=48:f2=51
  108. 1070 gosub1190:gosub1180:gosub430
  109. 1080 gosub1190:gosub1180:gosub770
  110. 1090 pokev+21,255
  111. 1100 pokev+4,144:pokev+5,80
  112. 1110 pokev+28,255:poke2042,245
  113. 1120 poke53280,0:poke53281,0:poke646,5
  114. 1123 pokev+2,0:pokev+6,0:pokev+8,0:pokev+10,0
  115. 1124 pokev+22,200:pokev+30,0:poke12953,0
  116. 1125 poke12960,0:poke12952,0
  117. 1130 poke12963,1:sys49480:poke12963,0
  118. 1140 s2=peek(12960)
  119. 1150 ifs2=1thenbn=bn+1:l1=l1+1:goto1070
  120. 1160 iff2=49thenbn=1:goto600
  121. 1170 ifpeek(12952)=1thenf2=f2-1:goto1080
  122. 1180 poke12958,s1
  123. 1181 poke12808,0:poke12963,wa
  124. 1182 poke12964,w1:poke12965,w2
  125. 1183 poke12966,w3:poke12967,w4:return:return
  126. 1190 rem******************************
  127. 1200 rem***   bilder vorbereiten   ***
  128. 1210 rem******************************
  129. 1215 w1=0:w2=0:w3=0:w4=0:gosub1182
  130. 1220 ifbn>=2then1240
  131. 1230 s1=12:wa=1:w1=87:w3=183:return
  132. 1240 ifbn>=3then1260
  133. 1250 s1=11:wa=1:w1=87:w2=230:return
  134. 1260 ifbn>=4then1280
  135. 1270 s1=11:wa=1:w1=230:return
  136. 1280 ifbn>=5then1300
  137. 1290 s1=17:wa=1:w1=230:return
  138. 1300 ifbn>=6then1320
  139. 1310 s1=15:wa=1:w1=78:w2=230:return
  140. 1320 ifbn>=7then1340
  141. 1330 s1=12:wa=1:w1=230:return
  142. 1340 ifbn>=8then1360
  143. 1350 s1=12:wa=1:w1=230:return
  144. 1360 ifbn>=9then1380
  145. 1370 s1=10:wa=1:w1=230:return
  146. 1380 ifbn>=10then1400
  147. 1390 s1=16:wa=1:w1=96:w2=230:return
  148. 1400 ifbn>=11then1420
  149. 1410 s1=9:wa=1:w1=230:return
  150. 1420 rem ******************************
  151. 1430 rem *** folgendermassen werden ***
  152. 1440 rem *** eigene bilder eingebaut***
  153. 1450 rem *** 1. bild erzeugen       ***
  154. 1460 rem *** 2. steine zaehlen      ***
  155. 1470 rem *** 3. nach dem selben     ***
  156. 1480 rem ***    schema eingeben wie ***
  157. 1490 rem ***    oben.               ***
  158. 1500 rem *** - s1 = steinanzahl     ***
  159. 1510 rem *** - wa = 0 (wurm aus)    ***
  160. 1520 rem *** - wa = 1 (wurm an)     ***
  161. 1530 rem *** - w1-w4 hoehen der     ***
  162. 1540 rem ***         wuermer        ***
  163. 1550 rem ***         + :return      ***
  164. 1560 rem *** - goto in der letzten  ***
  165. 1570 rem ***   zeile entsprechend   ***
  166. 1580 rem ***   aendern.(fertig)     ***
  167. 1590 rem ******************************
  168. 63999 ifbn>=11thenpoke12949,peek(12949)-2:bn=1:return
  169.